58 


— MISE AU POINT — 


τί Y da Än wauu des MM ade οὗ Ü, daten wee vout ke foa Genet 


Lomm ouy eol | Ça a gha PRATER SAT a νου MA j. μους ανος εκανα À 


METTRE κου PANT o pue wa , EÑ a dee yus dE pres, LE mmut fie 
sl 


A ^ -— — 
ex oc Á sët p**st et d ¿Ana va οἱ ων UA... 


di RA p dos 
pa hu mai rue ) caat Tes joms fou Ρ ytt qu ον a σοι gu As Lau cs , OM 
alen $ ru q^ À A Pn o NA hop, ov idi bé 0^ a dote bis deg, 


conte a cole , ον Lio Tc ausa t pr^ une Cada Seat ei o 
^Abadet rompe ου pr ce que Qa pogane lou La Ë: 

d σαᾶλας αλα. 

Ti 

^el egen k maya qua fen j ἁ ω ke 


sovy fov H. Ver 5 PT rr DE. , $= $ t^ où od, yo uit 


OÙ va Lea kan JA ra 5 


4" 
y. 
plu» jamas Goia Bus nutan Ba Τομέ; IER Qu vt Qe gnum 
poses Lo eA di naX Quas Res ο in Fa ue , Δ ye e ; ο s Be Le 
c'est Loi - u— wg : 

T 

av" it κ ^ a yas 24 s ^A $ 0 A MEER Ανω Oro: b THU FAR S (ου 

ps kär vae, AQ as To»yooss Ja αν Grad, Aa we en tire y. 
A vt24 tA LABS C, en. sh A: 
FRE Όραυ TE YS . F^ την, PAR ο... NCA AAA eR Le p*- LAA n ou 
/ 
Λεβί νε ου F^ Loin Là. 5 ο Ag a Le On vt Tia dis υη wuja , eX 
Plus bn Eve umt j £* Sa a ba du v yet pen EU me 
" H. wapi d pa EE 
. Ía re bei e die que . 
La a kaum en A κους AE yerk ae AD e pH La r UA ιλύ po^ y 
Bo eg MO daus Ni ε΄ de? pes sue ut Piques x 5 V CR 
| j^ e V qo 
[oL eo 1^ a was cona paa d Ae de qud ex tom mma a 
| | ) pee A ΡΕ. 
+ κε u'a għas qi κανονιών Le S °” quad | 
L AA da Wa (θά λα avale ss , t'ast e ^ae as e 
OÙ sout Ó, "n l 
σν Banaan A qe a ὁ Cut dons «ο Wer Sasa, ( ce am ast- 


d . 1 
out e ak wa $ t y dro uw ne ` με 21 At y 


|" j { 
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reped 
== VL NDT DE Gäncren = 
Novo Savons font Laos uud Pan μα E s aat, QV vaus pars 


Lounabsous Reu ovp : CAR, OCDE, οφ, PRG, NULL GA, EQ, TAES , ak, 


/ 


c imb, E us ii A v Qa AR veo cs Das Í agyon 0 


(a yas Aat AC ν᾿ agi Ae ps on sP PT Todes qu 
RID 
" u^ a y ya Ue e Pa ASA y^ eA € v pa : | 

(ref 38 NNE Ki B u es xw z) 


m A^ Së tah os E: (3 + LI LS +742) 5 — 74/5 — 5 


OU aatra ange 
Ν L. 
SS (+ > B8) 
( npe bl e x 


Pa | Si  vo45 nose 2, Vy GG ; νους coustartous gos 


Ἠῷν» Φαν ὃ οι uut ο μμ KZ C od le P ο ak Gk ol. ΠῚ 


ACT pa €— ays ` Le yao re J Cast el ` e Kunu Us FÉ so er BAI 
di UM ο) pelle t ax o. LÀ 6 wg À l-G wa LAW DU TAES , ον Qu p 
4 cażie yla A Pnau e di ga Dan A e Us foutue ps P 
o p ` oa ou. F d Bua boit. w ue 
Seol roses s ‘à d D, oa Ax ma Da s Soit Aoa $ "OPE 
(ute EL ; Pas e. | cue eg A éz UN NN 6 
LIN dÉ MVL yo wot Ce LO ca an d IVA 
U 
i (PRE (N RES) 
1 wl 
—— (sETQ RES (SEM M οὐ 
Ae ' (wHILE LL 
οσο ανα | (së Q N (ADDA Hu 
| (Sang RES (PLUS RES (WEXTL um? 
(RETURN  (Qud RES πὴ ) 3 1i 
| À 
| 
L 


Motor yof pre Er e (C est A'msseċil le vou chars 
TE ii Hab IENNE a ο Le vortex Ju ja wm ae i 
DÉFINIR uw ου. tima , cest, pan res d'outus choss, assout un 
Han eut, um morion ος ea sess α Lda c'est Cé Le 


A 


— - i T i 
1811 (Lax — (a ο πει ον νε È muna (Gu gn ove fors y ws +oules 
- d 


ke M 


Lë fors q= yow M jn Sha Q4 gw yo e tibm A uw o | y« 4 adi Vox Du 


ed C RPIANNE "Ins » Ce ΑΦ cov οἱ Le 


7 


wara La pra — ¿ke - αμ οποία Sotaa ss ant ot U€ uocat ac Q taau as © - 
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Gi vata ide  Ajvssissauit, RÉAENNE Set Jovene uma fout 
(οκ oue guta | fou äer uu e + ee geg - Πας Aa = 
Aiżramuma atfteubiutuwet b mertu - Z - pogram =e À, X pye 54, on 
5 e Ma red d LL w est ps * AT ika A dams Da ste de venues 
d Page. En fft, dt ast uet aaen u fr 
Lu d Ps Lou Lo NENNE , Novs allan uva +o a 5’ Z. a. 
biet. je νά αι ϐ Ġodda. 


DŻEANIK b 9 ou ao j c'est 8 rang 


DE γι oO AL H ] ceys 
C "T A apres er ) 


d DE " est Uva d A o che Verde oi AR dz n A PET 


fortes Elle ο A du d 
A.) ὧν VO wA rois: r νους — Lg € C Ja Calles 


2.) vet Liste A Lotea l de E Ae. UL osowe 


a o JA Ὁ A. 
b.) Le S wo Oa CQ om - pe - EE dé S toat ^ p' Da Q 


at x 6 a psa pren va qua de net 
G an ` est d^ Όλα Ent une j ο» g' y fet T^ s bran . 


c £ , 
CoA, S στα Ver re . 


Aami Δε bE ' ye Ass ms Z Pit. " rN E T. 
(DE rv iE NE ( it) 
` (PRE (ἡ RES) 
š (6επ RES (ser M 0) 


(WHILE LL 
Ë (zeg N Cabbd N) 
(SETQ RES (PLUS KES (MWExTL LUL))) 


(RETURN (QIS RES NY) )) ` 
24. 


` t 


Αγ 5 ĦA σι ς Ce t^ p Le A ` ` . 
r+ en € r δ de ολ Bt ; Lë ET 
( οετις ας (rjdu4gME Tea » 5 > 
cx À' au eX 2 hg Ba E 


6 
L' vs des "T νο OM E ) ε α΄ EL E Aye E een MA Ada 
Cora το. ) Jo LA Lu CoL en ue nar € ua Ca, ( σ- Pau A 7 A 
ayt D yos os Pur dawk 2, ut 2. Ss? est d . z } T 
i anadh a $ Sc Fab 
CAM CL voa T ). 
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60 


" p^ T “a ut for ir ew Sieg? AO 4 uwa πο d 
dee t Stu um veo a Ba. d | 


(be PLUSAO Cx) (PLUS κ Ao y» 
Kc ħ à νι ua 
poses Liste Co- s dé 


οἱ SC dent fo~ des 


σε fours (^ ^ ovali & LUS el et ,4* LOU ja vk ast 


Tus coutaut . Pors 5 τ 
(PLusao 3) 
Voie elle : (^ phe ta B Ams a £L. νοκ x Fe 
et (^ Zéi Le Gitt gh fonction . Towt νο ka Si sin s 
Gart κά nA ouet ΕΣ (PLUS 3 4o) jA, — 
vous ε' mts At | ja rame Ab come VALEM. 
Puis d sus 


( PLusdo —4o) 


bieu, αὐ usP — E — 
; , it yt a jat rame , ajma $ 
Tu ebu ati A. (Ρυυς x Ao) -> ->D 


. ο ΑΣ us ^ pot u s= À a a + τῷ uses ( 944 vo uis s 
bovyovet ) | ac PAU Ag F WEE? Aa Ven, VA, e Ux ^ es s As duas CAN, 
(DE DIFCAR Cm N) 
À 


(DIFFER (Tines m M) (rines N N) ) 


Puis 5 Er : 
ĊDIFCAR lo b) . ga plau (achu, a E! oa dae ) 
mi NJ _ x 
i Se y Ħ ga Ca eat L, Co^ ein Pons , 
fa πὰ —— e. DxiD — De > Di. 


- C. E Bi 
(tore [3] [πὶ 


10410 — —-54. 


e κ ee ών Mw fo À uA a e XJ bem / ; d SS d SES uia bre, 


Sr qui mt απ. ev rg Le ο-δα ZA! eats. 
(De LEN GTH (L) 
(PRÆGE (N) 
"o (sex N ο) 
( WĦILE L (SER N (ABBA NJ 


(Se ι (cbA L » ) 
(RETURN M) )) 
LA 


Rem Y* ot» to RA er. 
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-πώπε" τι τω” 


EL 


Ta ps € mart a peu ; 
L 
(LENGTH (οφ sgt ri) ) fa pla ce. | cog She di 
id £^ ke se La να. `A San cost, b Pan) Uo den qe Aet Qs tisma Q 
ENT uat Pam ma E. . 
A ed $ fle dissous ua pen, 
b for À À y a Z Sets e^ fagon s A gi oa 
AKBUNENT Aa foutu 
A^ type : (DE  Piusdo (x) . ) 
Ka .» 
T 
οσο 
2^ 4 ; PLUSA 
yv Sa MN 


AA T a 


le A^ Tv? ^ ye e! An S L- A Goto s A fou zs ει αμ 
est oa s ut wom ^ boite C wo de visa) 


A A 
Le L Wis ayparan t Asas kos A ey tts s fan KEE? l e. 2st Ans 


λα. VA LE ui a SPA dues us He ὧν Jes Ka δ-οτ «κα 


A *yv* | 

C est Dua ment Tumino Coa st. y 9^ pt qa BAR ane ae: 
Aħ tyye , Cum A la νον” d^ DE) ce seut Aen 

/ 

ann usandt S RMELS et Á ' 
κ "AN | qt mem DT Tyye , οκ qu'on place 
^ Su, pu kaz AA j δι una nb a Ag 2 pd ^ L Pon Av te. 
Sow As pot Ge CT OPL , ⁄ 


paie ma les 


. (be ριν 540 C x) ge ) ο pute fox mals : x 
. (PE DIFLAR (M s)... ) λα. formals MAS A 
è (be LENGTH (L) AER y e ëmge ns : L 
Resumous - Leu S : A .) ye Aus ung | E d t 
` o οἶα u Cha wos det £ vun DE 


annoa πὶ 
4 + A FRA CA reu - te pes A um rs. E 


Pa ο DIFLAR ) . Lo Mu νας, a ci, οἷς Sec ASSOCIES 
JW 
tru 


} 


À i eleven . 
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mener (DE PPP (^ e €) <.) 


pos : CFP xa κι κ») 
AVANT «Ας ys $54 ὦ ν--νι o^ ^M S -= Z - CLIE , Lupp 
^ "P ei wi AA 14 bottes d & < 
ος σ-λο 4 DU = , 


eX y Be ue D [=+] EA σα l 


uve pus : CDE Eug (L M) ...) 


mA [se 
δὲ } ee ech < L are (Fou S< τα), «δε 


CN ELU SIN PARTIELLE : ο, 194 ο μα. fanti 


} 
Y d: trs sowt di disco AT xo Ta E bla, 


γέ. βου Ana y] Rn Ca. στ A ps j AIT 4s, E he 


`Y 


ast ga en LAS Les A oes — uie dau fon ol s GA S 


C 
On ^T de [γα À ἃς Don AULUS UE (ο M oce ia | 
In Lat s - emgurents - E S δὶ Aitua at ^A EV TTA AAO 

an A syy Z o EN va b. DÉSALLAUE C A So E sceau I 


est Cam en wt, AA ill, LA | pus gud y ας Ada gis : 


EXEMPLE S 
e (να ο DES AAV Ën Aë une Joie 
(Ge  REVEWSE (L) 
(PRG CM) 
(SEQQ M NIL) 


(WHILE L. 


(δες M (NS (WEXTL L) πὸ) 
(RETURN M) ) 


(REVERSE "Ca b E D a (ç & x) 
CReveRSE 1 (Je (vus mna η A ((νφνο AIME) σε) 
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Fi να ) Lin j eaf ehe ë ` Py AE t kenge a. Aq u iwa οἱ l ug 
Boe αι v uq l-65 


(be HAX Cu) 
E (PR ye (MX) 
(SETR πχ ĊWEXTL L) 
(white L 
P (c @# N D 
t (rer (ερ L) MX ) 


(SET MX CEAR LV y) 
(NE XTL =} k 


(RETURN MX) E 


(MAX F'(A. d a © 


(Ax ές ο À 1. — A 3- d ri 5 


Leg Â ondion Tu Az and n CT δ) ove. AT ayt dra 
À! ya bu L. j ei- We /NA AD ved νο. jatAZw-A . 


(DE MEĦR Car Gi 


CPREG <) 

"A. 
(wWnILE L. 
3 (Hub 


"(Cen AT (WexL LJ) 
CRETURN τὸ D) 
(RETURN NIL) y) sS +3 


mA. 
(ner > (é + > SY ντ 
Chena Τσε  '( rC vus amine Y o NIL 


, U fonti quo rein un ογπὲ A & πει, ASS 
Houta δ) oca αἱ U doe PES Sent qx. 


EES ρειώ (ges w) 
(PRG (RES) 


- (μις L 
> e 
(WER Ceme L) 283) 


CSENR RES (εσεις (CAR ER Res ))) 
(SER L CEDR -Y ) 


ss ( REVERSE RESY )) 
3 LA 


Des Pou t ous Ass ya ote DN + ye Lla, rate ef ls, | PEL οἱ yate 
KEVERSE, Al y» ἐν. 
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(Ga 5 "(4 s ** S LD (A 5 « à) 
(LEUR Tue { (ze NE VUS AIME PAS )) L (Ie vous Ame PAS) 
(δει PAS (DER NE Te NE ugus AIME PAS pim 

(σε vus Aime) 


, Lu Ponte qui ή ebe ΑἹ scere de 
L'atore AT es veu Le L. 
(be UpADIEN (AT L) 
(tape CN) 
(SET τὸ ο) 


(νόμο is 


(sb 
(Cep (NEXTU c) AT) 
(SETQ N CADDA Y yy 
CRETURN N) Ü) 


(cpnpien RE t (spu RE FA DPA RE ze D e κε). 


(«ρίας "Tea (sp RE Fr re πε σφι SZ fe RE) 2 
COPNBIEN ἵνα (see RE Fa DORE σφι og F Ge Ip 


e Va ο nus nana G bae . (Fini PAR LE FT ENT ) 
(ve Zo F C) ! ( eu Pug Le ĦAAENT YY 


(HUF) » (Fi Pur Le PÉAENT Y 


giur ast A ka αν o= dx oa ^ D ce bereede j € Ps ber d 
lo ads e yt font CJ c'est e gia NIL , 

Rave celuy nat out G ES p^ à y MA Δε 
θα γος 54, ελ tu den Tes stout uemet L, fo Hons 
REVSPRSE C £5). MAX , πεπῷ DELR 

DEN μα. | Crge cx) ag 
| A 
Cp ί ro) A Zu KEEN (dek 1 Fra wan ceo . 
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EXERCICE S 
A.) ni ue ην ABS & 4 ët (A 
υν-ᾱ- Aout Gha vu vom fre ) 3 pue 
J zf e Ën fe a vb . 


> : (ες —IS )— AS («55 40385), 408% 


d 


£.) fine ve Pen chien SIGNE o A "d d Melen ) 


ër in At uA 4 « tra 9» frites Pi o Pv iK RS | 
POUR sum nauw ut uae eye ας mo pika 5 A ' ç Qro ts 


?x X = (xa κι kw) 
Yo Cas qa - 323) 
(Qoi X X s ( ( x — Wa) e. σεν 43 (κα Ga) 
>< X = (CHAT LE Geer CIEL) 
Ÿ = ( CAT THE SLEEPS swv) 


(PAIR ev ) 
((ch&L S«vj(bg«r SLBEPS)(LE THE) 
(CHAT ENT H 


Ps | 
Doc PAIR pt alt Cosyle ον έως ee cu alive 


ρω A» 2 Du ον hate € Ai va pie s | 


Lie cesna “<Ü, coniftuwtes ya PA K . 
οἱ "eat" at AM keut A! ga As couple, A SS C 


CPE: (a cov rte , ven Αν SC Pa — và HE 
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[^] a.) (DE | s (κ) 


( #= b 
(CT κ 0) (Ρ.ΕΡΕΑ ο x) 
CT x Y) 
L. (DE Signe Cx) 
(BND 


N 
(ιτ X 0) - +) 


(lhEegp x) 0) 
(T 4) τ 


c.) (be PAR (x v) 
Ë (PR s (MES) 
1 
(se nQ RES NIL) 
(WHILE X 


* (SE TQ RES € 
' (us (LIST (NEXTL X')(WEXT. vU 


RES Y) 
(RETURN RES) y ** 3 
ta 


À.) doit < oe tte JA v^ uo aff. (st fx Coma oe : 
( € A άν £) l d foci Le foe Taayah WE 
CEAM cean á L) 
L ( (Dizv ç D > (Diabre DEVIL y) EN DiEU 
(εκ C (CA^) Sy) να 
C Ck Po ` CCC & 5 BY c) — (A) 
(DE Assfc (fb L) 


9x5 : (CARR 


CPR 6 <) 
( vw HiL& L. 
(-“νο 


(Cem (CAMR L) gie) 
CRETIN (εκ Ly Y) 
(ue sm αγ) 


(RETURN NIL) y 
mes : (assec War”. UNAR bug ¿w ) (CHAT CAT) (LE me ))) 
(CHAT CAT ) 


Casse d Τίς UR) (1 DELXÀ)) s NIL 


ASSE pacat dee de tousle, μι Aa ou caca 


z.) (be RAY (Pre nn) 
(pus Tue e 


d {pns PRE NPH 
> l (RAW be νῶνς udi 
ο ir) D) 
4 - Iza 
eco (RAVI 'HARALDA — 
(HELL HARALD παν! DE vais νφιαὴ 


"Ir EL MEL Mi, x. . x . RI A L 
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6 
~ RE PRE SENTATIPNS — 


Qus y o (ui sute «νο Lys 1 
. Aa yis ete pea ay 
RA prévu Aivhses Able wn A anta ces Fapta 
manipule tag ra e o S 
Reyes S eA o S ) dris coy^?5 , E a vou t έως , €^ VR "as 
yo Fat NA g+ NI , Aca ta SES joo DÉI - Q u 'aqt r= s 


L m 


αι 4. Hoen de l- Av — IE, — Long al enn A P. AAA 


> PT i 


Ov yt dtc ps {tes AA γή Mike, ο» BusEntbuE», af 
Ay 5 {Αα eut S Site Aa oe us Frs 


= (A > + 6) 


ec A = 
ὃ = (4 έ s > 4) 
l'ue κ Aa b 2 (4 > * S 6 +) 
(uda de A e b . ÇA > €) 
L, pre de À cart A 0 
4 awb 5 ((4 «Y4 &)(a s)(4 a) 4) 


(5 *) (5 6)(5 S (> 3) (3 4) 
( *)( ἐλ SG 5) (7 4) 
(rte 6)(65)(6 sy Ce 4) 


Je yet νων, η.” PARTI TAANS 
Al oet Ps | 
ἃς : Liste À ph σεν αν. o Lat. imn tla a - ο σε ἕ 


( (22030) (G VOY 
(CA *) (vy) (LAJĊI > CA 21 >> ) 


Je pan pelle T^ Choix 0, pr À οσο Αὖν- Sage wg a C DEO ΓΣ 
J 
t. 4» QU he ok oe HI D dassos telhs 
T* | he qe dent ιν due $ u lasse 
| La co sje s So À DIS Sci Te ; Fb. ο ext ke $ A! ¿ Orq τοῖς 


Ska Le ka kä Mk , 
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pampe : Lu A» μιλ Ub-s d'un 22 t à 4 Ελ ts 

( (4) (1) (2) (4) 

' (CA tant Y) 
(C^ >) Cty (le) 
((4 &) (1) US 
(A)(L 9569) 
(LA x sn Cu 
(C4 tritt >) 
CC 4 )C3)) 
(A + «) (57) 
CC4^ > δίι à )) 
((4)(+)(> αγ 
(A 2)(5 «)) 
(C4 + 4) (D 
(Ċ4)(1 » αὐ 
(4*2 s ay ) 


Ay ploti μὲ kee? d 0v «as a d 42 οι MA in M Ste v.a S visu lellis š 
Veit « οι ολα Vos Í, wms su £, vas 
(aa νο hit. Dil Ave ss oua thha À | veo Sue D - fd v—te Wee. ) : 


y on wu. Q GR 


Re Loon τ PA għam cau ali u lit — C mi A Q4 AL. " lost 
» 
ο... Aa e n q^ ma ta' AA puits d Ce a 44 plruwsuts ; 


( G 83) 
"Co 5 6) 
(7 3) 

(9 Ao) 

(44 ) ) 
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τά asa yia A` gite mama de AA r$ etes n ais, scies, ye pen le 
ο. p A' vrai QRESICATS 


FH 


A—— 


£a pU FAITS συ "Ten 5 od 


( (sur À $) 
(50& B TABLE) 
(SUR c TABLE )) 


Eu p^ M “lla. δη an rs oet DI mem mot ess WS: 
pee A` gd | ka γι ^a Ας p^ SAn n £, XAG va. 
trens Porus : 

( (sur A TABLE) 


(SR B € ) 
(SUR c TABLE η) 


pa 85 μολών 4, “ages gx uvre LA 
, On w p Ας pla us gu vi Lite i Lit š (nu yer Mssus) 
ue għawm μα δώ δν uma out qe a ue Vae a aw Liba 


Du put ina ο Xe ga αν a Z (Ax —a ea oS y ym 
petak pe xus Áo pris 
($305 x y) DE κ ast sous e 
( DANS x x) Pot. x coutsum xs Ὕ 
(A-DRPITE x on Πα. x απ K Be doke Aa ci 


(Dänz (Sgus KR  (A-b&gE (Dans τ €)(bws & c))) R ) 
A + 3 + e 4 SL A 


Eu fout, μι. A roa F verts e dde. PT [à SE a jure pat sis 
At, ye A Ra aE bf eben E Kr Si cht Ae STRULTURE 


RELA TND NELLE | 


http://www.artinfo-musinfo.org Initiation à la programmation en LISP 510, 1973-1977, page 75/130 


74 


& APR S : Αι δις, 4,01, 5,4) 5 

oo =s ZS A Geng $ purs À evt e. 
Quitte 5 wt yet 4,1,»,*,5 7347 απ CoA Siva Á e v € C. 
( Cie P. pest A ` ANAU O YE fo tana ) 


Sof eA : 4 fu'n SOA i IÅ vie ( EVANS ) V 


pue ce pett ΛΝ gew Z, Agen ma cost CI 4 


& u Ka tds verre $4. 


EXER CCE Ae pai sa ta η. 4» 4^0» A b,C,413%,4, 5, 
ps Km Αι Css AA yao t As ens , 4 ου. prom 
Sa TR γι fà A Lë GE ^ P , ^a ali T. ġa 7 sn 4 
44 C dad £ te tes μον γα We ġ' alsar. sa. : 


d 


À (Dans (bas T T) R) 
& ( DANS T κ) 
C CDANS — (DANS R €) R) 
D : (DANS (DanS c c) R) 
l ( DANS & R) 
> (Ρανς ë (Dans T c) R Y 
4 (DAMS e R) 
5 (Daws + R) 


A : (DANS (bans T T) R) 

é : ( DANS T R) 
C ( DANS (DANS R c R, 
i ) 8) 
e 


( DANS c. κ) 
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FL 
Les A yes At. pi bd auteurs assez Lie Sach Aa nd λλονες 


At JEUX . 
Voin + DR mupu ps Š Jr S 
À va yet pe MALAH ( ου AWELE ) 


"m: ei uu WA 


kd n 


C) (CO © @ 6) Gi 


H 
(D © 65 © © C 


( (ι 44 Ao Ae ο A («Ὁ 
(D $ € 4 + 2 (4) ) 
Kesteus fus p MEM. . Vora , sous Ü, Varna d'un ye , VE 
ην Y v d FE Vd time αἱ Ue ( Loue ) ANA xA p f PTXER 
((Α5  Peue (as C PEUR ) (aS CARREMU)(AS πκεσιε) (7 «φευκ » 


EXERCGCE : È νε νι Lag 0 ^-^ Am Jp t Hostes 05 Coon s À `. l 
CA Mx — MMC. BLU z 44 e s d' 


^€ bl 

Figure : (As ag Dane véier ιο 8 << wv) 

C ULER « 6έθιΦυξ cu, CARREAU  TREFLE ) 
Για. |: (AS PRUE) 
CAS EUR) 


(9 CARREAU 
(^9  TREFLE ) 


CRP: PEE) 
CR: CEU) 
LA ... 


PLU TIBNI l (DE ARTES C) 
^ (PRADE (FIGURE AE EĦULEUR) 
+ 


4 
( SERR fi GURE (as Héi DANSE VALET ιο ^ g + )) 


(WHILE FIGURE 
^ (SER AG (w ëE TL Fı Gure )) 
(«ες CPER T/AQUE CHEUR coWfEKO MERE )) 
(w HiL€ Cb U Liz Uva, 
d (PRINT (sT Εις (NEXT CÉULEUR WI ) 
& 5 


(RETURN Tven ^ mus p» 33 
L À 
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Su GGCESTNPNI : Uu Wees ges yov ο Pob eee d pa vie 
CB µε wA TEW MAN ) Aures T C i aat ας, eaea gs ¿L ya s) 


ar. Ax Cow vw Le d θτ, bo j À 177 , utag Surte, d 


Esseyez EP Cas M La von U -^e Tees απ "TP Cc» wa Men 


PPT ANT en — ἕνα a ` € 
" U € he 5 geet a a PR — AS għa SA yrl 


"€ € la ὃν. A' AS , JJ de Jannig r ^ AO z+ 
2 , e -. 


On γ»- , gc sz Pattes AR e ja de, ah GRAPHES 
Pr 


(CT 8) (9) (^ * *) (A) (4 & ei 0) 


lu, A wo DT se Í, dwa ειν pfta ΜΑ Late e fissa sma 


( $ fi pos uu eoe pa ) ` 
a va at tre atent ΕΞ | ge j 
M L ví μ- 5 4 a Try a L... 
EXERCICE: Fut mu Ü (NIEME N L) qm mure k 
N iia aat fe L Cue L 
πετ. (ning 3 Tra B c D a 
(NIENE 2. 3 (A (3 b) Z 6))--» (3 4) 
ŻĠLUTTM : 
(be NIEME (N L) 
CPRÈE () 
(whe — (GET κ A) 
(NEXIL t- 


(SEAR N (sus. NY } 
CRE hät (em Ly y) 


http://WWW.aftinfo-musinfo.org Initiation à la programmation en LISP 510, 1973-1977, page 78 / 130 


pete s o. . 


A Ml Lea Ram --- ere: es 


+4 


¿ob ως be Com L 


ρκ . ghat Joun? 4 ate. A` εἰμὲν 
(bb AEO m FA SL Lë Sai 
e (w ca perdu) ra yh m em es rk 
(CPR va og (ni σφι si) κε) 


Où αγών νι Co wa Ae EN els ων ορ ALTER ATYP S 


E | 
-ᾱ- 


(a ΕΘΕΑ πι 4 κε) 
Ον > um A A $> (Αα fi, P ikona nom ο coke jsa AA pi p tatu 


(A a) (Fa s)(mi 4) ((Ħ RE) b) 


be: Le eer : 


Si H RE P ru b ot t 

Go Gap TT sep ~ 

L 1 1 + ` Í 

D St L `> AA 
pps 4 la. : VA eu bet EN Ut 2 tana aae eie e e^. 


Ce IAA , à yo A Lue Avanti o de, (Aou ) 
(S Ο Fa) (d DS) ni (J SI) RE ια (48 LA )) 
oo Fa A , D £ ες ο sam $ Seu scht $ — 


Y» |: A TT Ee 

SD : sous. deet rate 
d. T ART A 

s Ae va bk ple 

N La yo C PETENS 


( (P (s 4 r^») ((& εν} os) (πι si) (κε Loi 
(So ((* €») Si) (G ο} FAJA CS τι) (ta gem 
(T ((% 9) m)(Qm (% st c Ji) (ii (# Lem 
(5 (RE (h w) (s Ce ei? 
CN CG vx) f*) (0 c) 5ιγ ) 
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Coler AM. As δν Ες οὐ CHAÎNES | 
2 : ñ = (σε Suis gë) 

b - (pe vus νφικ) 
ἰ]ν-ε e tA en Aw TAR Y Pase οἷον SA Ar P νάνος 2-60 Κι 
CHRSCHTENATNEN (wibe Let z bout) 


SA - 
A cowcat;AY puac P» (σε SUS RAV! DE ντους VR) 


(DE vus VWIK πε sus ανν) 
) evt p flake ) τα 


ϐ ` ex Geff us roti Fr 


Tata ua ei apt A 


j κ SE se ey Ep ga we al 
(xa RE ... δν vy 4 SA SE r 


Voix L waus tb forts Lus P PA οἱ tbe ¿n tla o boobs l 


(NEC £4 dh : couh b 1 bytes 


u u fi 
(νιέσωςὰ £ 


6): pbu U dpt b Z< & Lu κε ü bek 
manyas : 


(nene (A &) CN) — c^ e c) 
(Negnca  '(& B) !c)— (^ ὁ c» 
(μόνος Ila en *Ccy) (A 6 Ce) 


(NigNC '(se Que) ‘(vis mre CPAS Ui — (πε (NE) νφυ» ung C PRS ) 


(Neme "(xe upos ming) l (BEMEBUP)) ν (σε vous MME DeaucpuP ) 
(NUufucA '(JE vjs mne) Γ(δεανωφυ/))-» (σε vus Aime Céeav «bu P )) 


μα uii : | (une Nu. λα. b )) -— CA 6) 
(μας (A B) ws Ca B) 


NIL (ου C) ) &st hon TI DI lant umita '' po ha ca ta dus ajma 


EXERCICE Fire ue Yo ο (eer L) qu foutre ke 
seu U NEA 
(DE cAST (L) 
CP. (πες) 
(SERR es NIC) : pem Ὁ <s ον L seet 
(wA e L. v valo 2 


(sem aes CNExTL LY 
Cz TOWN RES) )) 
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; U ue bale - Mdouvmis r pys £S e 66), 


` 


Pr ((LE TME) (CHAT CAT) sse.) 


"puis δα} pos passes Ba Fa tns Af oya Jw Med ' ONERT. I 


vet α 
( ἂν ow À Ze vast p^ [~> v aura es λος D As CHEN 
Ñ ssez Be wat n. (^ ) L r ΄ 


pm Ανα A A $ 


ut ὃ suit ou S Nigo À at AS rdc Cas Te ann 


AVS eus ) vr vA, dr e*). 


SPLITMNI. ; (Prge (Dier PHRA PARL NØT aux) 


(SER wT (READ) 
(WHILE (SETR PHKA C READ YY 
E (WHILE — PHRA 
> (SERR ner (NEXTL PHRA Y 
(Sev AUX (Casse Mgr DicT )) 
(SEM PHRL 
(NOHRCA PHRL 
: (END 
* (AUX. (CabR αωχ)) 
Cr n$r) )))) 
(PRINT. PHRZ)) Re 
(RETURN Τέειμ Ge TKADU C Τι ħa) ) 


pM 


1) 


humpa εχ zeg, dE ce guest da γω Linden 
pct Le " < la CR qet Di ana mal “w pe à . 


— (FUE Gët) (P#ri g ELE II NAN eg EATS) (LA THE) (σσευνε Yus 6) (LE THE ) 
(GRANDE — &lG)(TUE wills )) 


> Cta Pënng NANSE La FILLE) 
«- (THE APPLE  EWTS THE GiRL) 


æ (THE Bic APPLE αν "Tue Yguns APPLE ) 
-p (t^ JEVNE ᾖὍδιτφυ Πανός Le τρ) 
«- (TE NPUNG Ζιεφυ ATS THE ιφωοθ) 
— NIL 


«— (FIN DE Τήλους TEN ) 
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L (SP pret € acht Mrd ` AN a prete ASS r 7 s ta ka sov T zL =, ets 


NA 


f 
kaw 
i 


na ml f M O^ tA o ve AM ( e» p. L<ou J ped ont) 
(LA JEVHE FLE ĦANĠE O kÍ t. (ënne ) 
Get ions B die see $ 


( = CNP (ARI LA) (ADJ JEVNE ) (N Ειινεὲ λὴ 
x L 


Aaen de s 


“4 . 
(VP (v ΠΑΝΟΣ) 
TA . N e — ve ἈΝ ` 2 
(NP (ARTI UNE N/A Ponte) 
Ki * + 4 
^] 
a+ xt ie $ ef dot un ἔνε 
WF ve 
ση A : 
Adr BH v^ N P 
t t ⁄ ` 
I ' : i PAT gei 
LA JOURE fuig ĦANĠE JWE Geng 
ον Ve? C41 Q Jg vA pertes Ager y Ar co Yr Lau 
ο ADE o . { L-A τὸ MIS Fili € rAK 6c use Pene) 
s Lët, i : LAKT LA) (ADS Scout VON Five? (V FLAN de ὓ 


(Αντ. CNS) (s= Fena in 


ο "We 1 4 (NP [ARI C) ( ^95 DEeuNE JUN Ce )) 
ἐν ĦANDE ` 


(NP (AAT UWE) N Perte) ) 


Soc > Ċ(NP (ART LAN (ADI JEVNE) (ri FILLE y) 
(VP ἐν FIAN GE) 
(MP (^r vun D (9. Panne )))) 


STRDE E (° CNP 


τί era rh yes sae ; E Mn εἰς νων, La KJ ÉCRAD a των 


Γι e 

et JA T o^ $ 5 EN, +f a 6 6 ct |i rv Ar poo ως pl pue — a ον 
y ; 

? Slug. sat 1 À 

L p^ t voy Ὺ ^P t DE 4 ^t. e^ irg plna M CL A wee n 

= È- » i E 


pres Gë et Fo ) | KI κάνω Ee D EE pren À Ca T ' tA Pux et 
°> e^ aus ) ar em, ^ (m = ἡ IRAE 
<< P oa "wA CM = -—+ j ya εφ goi DÉI Corte gars so, mat A JS 


XI | 


L Το e C. pr 
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Vert , Τον avis, Ra ^4 bei paT Ra e eo 


78 


dde λα 9^ λα. À ‘une Απλα T 
» mrs, 


o£ Prusse s 4 Les TEE : 


{ ον (qa sn) MI v | ^ se f 


— 


À pyr Andana st A 


e LE 


e LE 


a Ress Αν peus μα qa 


FRNAGE PUE 

Ασε put 

QUE LE RAT f oí der 

VR rte 66 eu = 

QUE LE RAT RANCE 
CHASSE 


QUE LE CHAT 


Gire gamie 2 aide ym b. He se ( wp 5) 


(° (ss qo) 
Län (T αλγ(ν /s "e 


VU ΜῈ ^" (sN (arr «9)) 
Lie (ωη- que) (Oz CN /8N)) 
CART LE .) 


(N  Papna os KAT CHAT ) 
CV Me Ἀφδε casse eg 3 
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Τω bi 
d 
E vou $ d Phot 5 VU a νο” DICTAE S A. Lites 
pense A ολ Low manoir uaia pion +s ç 


( (sew ve) (au 15) (LAUNE 25) (WAIMA T2) (Luc τι) Cetëupe +s) 
(MEDAR 14) (σελ 34) (εικύδες 28) ) 
A 


ον. ye Ea δεν ο j sadot qa CLAUDE asf oa piton dre mss bina 
vas $ taha οἲ uni , 54 |» οι du sexe ai as pese s (He Lomme, Fe fama), 
" | 
pete οι... 
4 
Α Y ae 04. hs , 99 Comet om Ad af FLE N Γιεν, 
ga pet dendo e ha idb OR Am douanes , 
pra pes : 
e < doutes Lo phre-ves µε għas de Lg ms. 
((WMĦA 17 FO(coob* Ze FIGERN 24 Μμ)(οιΑνος 28 ah 
e ama tee, doks δ» hs 
(CAVE 25 FE) (uana 27 F)(CLWIDE 19 € y) 
o Am qu ` Lew, L, Pan ayet- uiue E Trou 
(JEM 14 H) (ενλωρε 18 F) (sema. νά H) (ċLMDE τς D 
e AM pom lot. L, pres Au uma me, 
( ( 3£^w Lk OH)CVICTP4 πι H) 
κ απ γην  Joutes LL fermes de o5 Aa 15 e- s 
(BUNE 22 e )) 
. As 45 pee ye m bnew kS sat C m'y), 
( (au is H)(lue n H)(AtiS 13 F) OSEAN τή H)(uiugr Zu ni 


(NAIMA 13 F} (ciae 14 H)(LLAUDE +e F)(IERN BA HJ) 
HAL sr I 


U (ei le pu ' Ca 
w å yis a PC va du én pm, F Main Αα δὶ, μμ εἰ she Aa Jus 
c'e : - e e l ` | 
ye ~ f' pumi ass TVUTES La quatres qu'en 
γ γον. ο um fre 1 
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$0 
Uv mula sat zeien him Cow ο πες αμ L na pete 
A` adr je 3 bz fo th Le ite: veia cr Iq ut . 


65 ca v« (a. ; Sed οἱ BAe pe 3 SA 


Me. opõiwtm m äi ο: » Lab Lac L A yet tn hate 
Baue Pedeonc . τα. La (+ a L) c) 
96, À' ed y^ Σ᾽ AA Q. yu AR 
( oprede 4 ojpede, ` ep ) 
Fe. optem Pr does τ ) Ax bae ἃς ^a prO Gi Ae 


pfupwanse PPsrex€* . -α . Cla 4 +) < κε) 
puas i up set e Daa $) <= (< - αὐ 
MER ` (x (να L)(- e A 
PASTANE |: (Ca b 4)(E À -) +) 
-p ST : Ca + (C$ - cy A) 
PRAEC XE : (+ a κ (- 6 <) A) 
PPSTAXET : (a (CR < -) A A y +) 
RENAR QUE : & ΑΕ apprunu settima Λε L! o picta y? 
ἕνα, + oo "uS, — go DIFER np" oa TIMES εχξ 


( o» (+ a € e) et (Tines (PLUS ^ 8) €) 


Douce, USP a! Feo wATUCULLETLOM T PU rajn p Te flo aise fire 
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Lise pat A Ls. Gecke: A` se pe sjim “yy drea eh S 
Koenig fa— ay tren . 


Σω. LA : ke Ha Ἀπ; Je ex ^ £ Cx -4 ) 4 C 


ς »»t ler -ᾱ, τω λα, αρ κα. ` 
(INTER (τπε x Cep e x) D x) 


(Pus (Tres (af E κ ) (OFER x A y) CH ST ) 
" E S aou s, u ika mal De an A' où U INTER à £A. Aad parte : 
y^ Bra 5 ES MA ven — $ Z ma TE ja PETI (> ( SAINT ^t S lela J SIN Ae 


3.4 rig e s D Sege £ apu duo PES S a' va geck 
ην. At Lies. d E 


CÉNCLOSIÉN PAUTIELLE . ( voi ge sg) 


! ` 
L' AM Αἱ fe poca cor msy de deii 


Vue sg ra pri > aA imm AA ES LOIS e 16». poeti : 
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P FÉNCT: PNS RECURSIVES- 


Moi ον pet y^ o fre : fu bai qui ve Aste epe uc ws n ne νὴ fors 


joa. Ga ` . 


U ue (^os Aa Paina c'est j ανὲς par age e mm pl νι = ἂν 
Län eg Cane ορ (pus Τορ o )) 
5 (uela ah + οἱ δ. $$ Got À i^ vanl 9 : 
CSS "OR (oue "Dg "rem 
Poss 2 £N ets Δα L^ CX s S p que Kem 
(NS "og Τίς Gei 
Fu ἔν " Pob. £, C$ δι pis aae T4 a its, C c'est Be Seud 
qe as sie ) j T4 duone 
(5# 95 οφ) 
B Risumons- is U 5 
Li DH (oan ο. (ns "ps vum 
(ss 'pZ (ous Iba "(pa y) 
(«ης "Gs (né P) 
(rs ο Gei 
c NC. v = 4 o GA. - | 
(nm Fe Im Cos (us "na (NS Og om 
(TT PA Cons DE (Quies "rs 
Lëns 'by (ns bé "(ug Dé ))) 
yt PNS DB (ος bz Gan 
(rs ο DA Ds) 


(cs y) 


Qu Άρα flA . ER LAG ti 
(cms l Z 
Qa P 
(fus ' Z μιν.) 
purs AU sub, hen ka (φόρος DRM Än gu. bottes 
6. Loma watu fot- je Le pls Au aus. l 


dec Q ka AL, 


Donc t cus Aes Le ae ie d 


À, accum tal A ( ¿a ! . | 
OQ ou AL: , ` μία. p^ a (SNS Le Nil 
fan T£ a C ea =a o tt, - ki J 
š | : DES: ΞΜΤΕ ου PUE. 
L. Euslan A. ce Qua SA aicun u LESS ph 5 ps fon ^ e^ 


ples St E pues EMANTÈE , 
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85 ἡ 
G taunt . DESCENTE suwa da «Ενίοτε: ast imc 
v^ 0, get. n 4 U om ba 1 
(be BWSD ( N 
(«πων 
- ((ZERME NJNIL) 
(T (fus ‘og (inso (susa vol? 
mn” 5 S fy t A 


pe Yong To oa δι 

pi e (εν ϱ) r t^ phu 0 des 55. kan, ` Af" £^ ett: ss Le £N O. 
x Puisque M 20 , ο. nant ML. En ff, Oas 
Pro ( = Lodz Cer Y) oua 6546 ` Gute p Ts Dg 


T e (e$ sp A) : (* ps a A fes NI , SÉ fe επ fu cgi o . 
Lä: N Z0 te apelli: 
(ANS bg (fnsD o )) 
| det ^L (Sved Νὴ ewe Mz A , 
^ : PLE MM U Las f A | 
U («ps DS e. est bi atc —; ) GË p^ “|, 
CHNSD ΟὟ . Re pous νου c T , (εως 0) -> ^C 


Dowe GA e. 


(ANS ET μι.) > Cb gf) . Vu € 


HN. | (eps τὴ i gE paw L Aes N, at ες aaga U auf, 
Lan H An, ça ay p alke : 
(ss bg (ων A y) 


veles ^ (Subd ^) a xil 


L^ μα ( «ὀᾶ» "το -— at ία eM tL C eios 4) - 
Ke postous vous e IL , («Νες À) cb) 


Pen < 5 ĊENS οὐ "frei — (né BE). Vale. 
K Eden $ - 5 - ΤΗ ο) 

NIL Øx 

1 4.) 

(pus "pg (pus oj) 


gen (Gu πι 
tow) T 
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9 t 
(NS 1) j 


(sS DB < NS A.) DESC ENTE 

CUS m (sns Coss (opus am | 

(ns DS ( ¿NS (DX NIL Y) ARRET DE LA DESERVE 
1 

(5 L. (Όσο )) | RE ras uitle 


(Ga D> Z ) y^ J 


(ssp b) 

| (eos DE Comp τὴ 

ST (us Ds (oM TG (iuris A ji) 

(ss bu (ομως äi (595 IBA Degne o ))) 
CIE OH ( LØNS BL (Œns IBA NL.) 

(ANS Dé (ο ο) BA (ESL) 

(ns '» Con D) 


Notes ένο» γι tl y e vor AL LANSD mm; 

(DE ege si (ON) 

(«gs bg (CNSO (suni N Wi 

[a o emm hs ----ρ 
(wt so 4) 
(eges ‘og (μμ ο) 
ĊANS bg ( ins "ma (νο - 4. )) 
(om hy (ss "ra (igus "rm (opus — yy 


At - ex À ef ten . 


ὋΝ 
4 


Lu _ — _ ὑπ 
pts a wa 54 ^^ ou T Ja = "Ts μος e L e Ν Sa fa cA mi ος f 
°> À < ^ — | 
d `> "I e 9 1 οἱ | + À / v c A E, trit το SCH RI - Ὁ 
dur κά. TI " Rue À Qu Era vd asas br ea e Ze y ets ϐ, Horga ( 7 RD el ox 
fun pe d Hit : t ai price eed P. AQ vam ee? | 


Og NC Sech 0, one V d S ο- Ad Car | 
` Va gen xD δ} S P» e e? e. 
Ϊ — . ( p At 4%) ) gya xx] e g 


? en a^ N - ο | te à 
Ca T TT T e À (ZERP κ), sx 
Ca SH At Lë ——— -- À : T €f "A n : 
ro | L1 1ο € Dr: C g^ tS m. os e #3 a et 
^^ box € α ve sons £a D b 


Rebses De κ, "on yrs rt, €5 o Zu 


http://www.artinfo-musinfo.org Initiation à la programmation en LISP 510, 1973-1977, page 89 / 130 


85 


Da get pee Lt pot RÉCURSIVE, Css ge ` għam $ ce 
A 


Cox, s - A4 - Lo su ) Lä is- nu s‘ a |y 4, alla at . 
C'est [ον An ve pH E ος ~ A Los 
t sma taa Lm jene AW jw Gate th ες. 


5st ur 
s. agunt , 


C'est pu erne E Va el" LITÉRATI PN (voi yeee sr). 


MOit vya e aw e mejl ἡ PL ^o A , auk ῥο-αι... ἄπο Cem AL 
VA om de A! 7 Γι. al ue Lire 


(DE LENGTH (k) 


(«όν 
((NULL L p) 
(T Cabb4A (LEN6TH (εσα L y) Y) 


€ Ssa χά. : 
bw τ (LENGTH NIL) 


0 FK. 


JEM CA) 


[ADDA (LEMGĠTH NIL y) 


Ý Cappa 0) 
+ À Zx . 
(LENGTH (A B) 


i (aboa (tenmcTn "Ca 
(ADDA (appt (LENGTH Νις) 


(Abbd (αυ. 0) 
1 (^bb4 ΑἹ 
È 


(LENGTH (Αι Le) | )) 
KE (LENGTH le c y) 


( AbbA. (ας. (LENGTH (ED) 
(Abd (ABBA ( Abb4. (LEMETH μι. "mu 
1 (ADDA. (ABBA (ABBA. — p y) 
l (ADA (Αθ. 4) 
(Abba z) 
5 
Vu t 
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Enie wa Sabe r , Voix ya ΩΝ Tos γω αι Que 


AE E e A 2 osb πὲ Per Gell Ea capote 


! E ! p^ P Aa — b Sé x 
d'eon À, A a με, À 4 A te "D LEE a 


SE : € vous pa E ro €; Ce me ye r Aat Evy ft ` 
Fa : ` +“. 


d — A Loeb © u 
d 


[.6 D σ., Êr wf e eoe s hyt πα Cox Bau s < 4, te ex. 
A A qi y he Le Amas Ba ¿a pt dasito l QuanA p^ res Ae 


R -— `A . 
Sas d egi a Are, ) ^ Qn lo A= Con Leloux F dote. 
16 (e dm C per <À Co ve pA ta e Ë` ο. + 
A tu Jo : 00,4,1, 5, ie, š, 
- OI 
at à 94 VHS 6,$,4,%,t,1,0. (A Al δι j A — une 
Aj ptu τε cy ts a Lo — y 2 a L'ENVERS ). 
Mov Le Lan, fou dr 


Da avr t Αν ο οι 


(De RPLUS (x ei 
(οσο 
(LERAP κ) Y) 
(T (RPLUS (Su64 X )(ADGS4 NY» » 


Tovamra $ : 
( RfLUs Ο t.) 
L ZEN 
I qose A +) 
( RPLUS 0 `, 
i. 


d 


BK . 
je pA te? 
( RPLUS 2 Ch 
(RPrus 4 ϐ6) 
v (PLUS ο +) 
vu px - 
ο ος Š ) 

j (^s κα $) 
(RPS 3 4) 
(βριος 1 5) 
(RPs À £) 


(Pus o +) 


+ x L 
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DT 


Autre cxt MÁS: κανά uve LE | oie, peer ῥἰ καρ. 
l (A b c D) () 
(b c b) (A) 
i ές b) (6 A) 
d (b) (c m A) 
ç () (p < BA) STWP. 


WR D C AN, οι Ü. Liste se, y WA EDN Gao = 
Q. λενε PT hot ac est Ze vyou 3 θε y? Coe eg Gë 


(ρε cEVENSE CL M) 
( és D 
L ((woLL L) m) 
CT (REVERSE Ces L) 
κα. (ελα L) M) ») 
Foxuis Too: Sr? 


ef deVEVSE NIL NIL) 

NIL FK. 

G (REVEMSE "Ce ei NIL) 

Γη (e) (fus 'A NIL) 
(reverse '(B) (a) 


ὁ (evene Hu (gns 18 ` CA y) 


(nevense NIL (6 Αγ 
(B A" Ge 
ef (REVEMSE (^ 5 c) NIL) 


(nEVENMSE le c) (κ A μις) 
Ψ (nevemse ' (6 €) Ça) 


1 


$ (revese ' (c) (ομως 'B "Cam 
Ce Ce) (6 AJ) 
κκ NIL (ans ο '(& À y) 
I vn NIL (c & αὐ 

(c B ^) gç 


Paru Po veut C ` 
A C» P. Arons ia et y À εν [ουν E C'oept Do E 


Ce Se? var U A ia four UAI e vet $ v TK ACE F 
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$$ 


En qve $0 | 9» aves γκο α' ExPRESSOANS PPIPNASES- 
IET L yest Pixe C Re Qs ez) l 
CXEWCLES : ο Οτι fl fe Losa νε pee ^e 
ο.) (A + f ) 
L.) (CA * ch ae (A - E )) 
D (^ x ((&- €) + (ο ^ (e - F y) 
SE us : 
A. (4 A 6) 
b.) (X (c ^ Sib Su 
c.) (κ A (+ l-b <)(ZXZ P fe E) 
nas e $$ du os A^ ; σω c Sss4LZd- A3 A 74 £S-DHA4S 
Done vag awpazzm € εἰ εντ : ον Φ» ya vtov; 
. 2% 5 PY vent duvta a + ευ ot s 
c = ( © pren o À oy u o pa s^ A t.) 
e. ( CPV g y : o p eda À 
C cepa & j ογ eeu. 
CEADDR 8 ) : ορ 
e Ë D pAn Aa s ον cc ` BA — vi — €, 


Ah PAC pei 5S. 
EXPRESS SPN Lef . aton 


go 


. | EXPRESS NI et. FX 
Daft à | ( VS ΡΠ. $ PRE SELAZN Ὗ 


ος 


gha gonna La S ĦA y^ m Se vie ᾿ξ σα M af: q~ 
(be Co ( €) 
[eornm 
(Car e E) 


(T (LisT (CADR e" 
(Pet (car εὐ 
(PÆL (ε.α EJ) y } 


Pr τα) (Par ! & )) 
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Q^ 


"T '((A + f) Ae ςῪ 

i (tist ik (PPL (As B) (PPL 'cy 

ον Ok (usr h (bai α)(ρμι ' tS )) (Pgu lej) 
(tist "A (Lisr- !+ "A CN ( ' 

L ABL te) 

ie "Ae Nc à à ) (Pi “c γ) 
(οι στ ! Ae '(* A À i 

j P 
(* (+ ^ 6) c) Su 


Voin a e ua 5 Z κα Ana e 
tbat, a ed : CH 1 PES gp ομως 
(ve Ενθᾳι. Ce) 
(ep 
(aan & Eg) 
(EU (ca €) |) 
( PLus CEVABL (εαυσα E 
(ER (cave) m» «2) i S DU 
Lotte (Ενβφι (CADA eil (evfd. [CADDA e ))) 
((E Come ei ix) 
(Tines (EvL (εαοῇ E) (= = 
na ος ο... ) (EVPSL (CADDA e )))) 


(uy «{Ενβφι (c^b4 &e)) (EURE (cAbDR = )))) ) 


La ou y δὲν Ponte : 
(ATEN ον ) sfr V 
PS. Di, . 
M Ph a σολ . A +0. 

er Caen 4) ντ 

C edm Nie) — T 

( Are r øn) -T 

Cape (a © D NIL 


CAS ὧν 
Fox sons To va vo EVPŒL L ni in: iu 


. (Eveg τς, (x 2 s) (- 4 x) 

(Prus (EVRPAAL Ii (= + e » (Euph (9 4 ») 

( PLUS (Tines (EJ PL 7.) (Evra. 5) (EVP 
(PLUS CTines € 5) Cev PZ — s <“ UN š 
(PLUS 4ο CEvVREL (- € >x) š 
(Purvs Ao CPiFFeR (ενβφι 8 )Cev Pac >») 


ç S y) 


4— q— «— «4— Se d 


l (PLus Ao (been g z) 
(Plus Ae 5) 
AS FK. 
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4 
ks 


m M Xe — ae m 


EXERCILES De 


: Reisea y - 67 J ei Fos Jet MV Be Aen o AS Cats Lie ve Q. 
fs- visa ASSHE. 


nl ; € — u In Ad im Se vc C DELP eX 2) η 


pour u te y? elt ἂν. Late Q e ` su -J` utua s des OE CAD v<. es 
da H ` seo va. eJ swat ras la ABE DA - 


E : Keen, ka ΥΤΎς 68. EU iou w elef £, Lvos comua hd 
ENSEMBLES ) v wt. κα P aa 


FE M eto À TA οἲ αντ E {Ενα de Be 
C ^ ) = Riste € 


MIU YA Van LA 
E ce Ars Jaen E Can au eS (UNIGEAN) LL 


ΡΞ LA L? ) + £ one mt ^a A petu wa mt κ ο... a t 
0 Xp. Se Lion d» Listes Li ar- LT. 


SPL ITWN S: 


(be Ass C ( ge3 L) 
( Z N D 
Cut L) NIL) 
CER (cam L) ges) 


Cear L7) 


(T (asse ges Cco« LIJA 


LT) at 


(ος DEL RQ (AT Ge? 
(epu 
((NULL L) NIL) 


(Lem (CAR L) Ar) 
(DER AT (Ceber . Y 
CT ( "s (ο L) 
CER WT (cp< LY) )) 


© , (DER d "Ca & c B) 
J ( NS l 
Sa ^ (pe "B Be c wy) 
CPR '^ (DEUR "reem 
LI ΤΑ (ns ic (OER F.S ! C & yy) 
CÉNS VA (όμως tc (DELR IM 


NIL yy 
(NS TA (ns c NIL-J) 
4 
(“ss να Cey 
(^ < 
) ER Tou ka "RO uk Ib Se 
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DA 
(ve UNIÓN (td v2) 
(AND 


((NULL t4) LZ) 
(CHER (εαν La) LI) 
(us  (cOR LA) L1)) 
(τ (NS (om να) 
(UNIBN CEDR L+) L2))) Y 


(ve INTER (14 νι) 
όνος, 
(ĊNULL L4.) NIL) 
(neng (eaw v+) νι) 
(ënn (cow LA) 
(INTER (EDR LA.) U2))) 
CT (INTER (e LA) ει) Ὁ) 


dei, ea qe Ὁ Jos deoa CPRCAR LA LL) s sou 
assiette CR CAT, gem A Le PRDUIT — CA RTESIEW Ze Les 


LA qt LT . 


(be PREC (tA ur) 


(Νοε. LA) Nit) 
CT (Negue — (Pageart (CAR L4) ιτ) 
CPAGCAR (EDR L4 LIJ)) > 
(DE PRP CAL (LA L1) 
: ( AND 


(NULL LI) NIL) 
(τ (LØNS (LIST LA (CAR L )) 
CPRCAL, CEDR ιτ y) η D 


Ravenna N CANC yr FS. -τλ- 


were : (PAR ‘la & ce) CA t 35) Livre 


-> (C^ ^^ its »γ(5 4)(8 2)(8 (c 4)(c tite 1) 


n | 


o^ Cow T +a A ος Res ^ 


ge . 
( PE CAR NIL la Gin — NIL 
ΑΧ ( PRÉ cow IC a= f> `) NIL) — Nil 
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32. 


- Cen Cu Si ÁN - 
Le Ë, tuna. αλλα. à posent OQ ρα ὑπερ Aa 
SP as vado UR et A G 
ἀπε adi να puat yom αὐ Zus se ese d. Lou o= 
AAA ακους . 15 sh ouh Pois Deo. coup fr cles GC voin dx 
LISP _ G σέλα yom vue oi. Se. Ux 


aca MR o cA e inta L 


aa otf, mar ubi suf 
A an de S cm Sut OMA Ceca va o wa bu αι 


ġia ο Αα αἱ ββοο.θλξι, A` «ut aads , U A` neża LH, 


Goi fsautes J ou pre nn jow AXOMA o rss es 
ques mov v t, vou ous ί 2# fotos X, 


ως poyamees , pasis E A 


σρ-ννε À' TO JĦAL 


ann de gun acl Je da, ; ta LE 
sii; ist aAa δ» us es δη. j ela S ta SS uU uA ew fin 
M: ins 

Four. vaa Ba νι be Le Da 
da kas ές 1 


AA AA MA tp 5 


Pu d ma Us P ; Ee cou S44 LÉ 


T valt 


' Reumsive — Fun enen 


mana Alan Cow πω 


Ħallu Me CARTHY T Sym tete Expussous 
by nadu © Cher 


Avul 4463 
Me CARTHY għab.) ιο AG ος, πως i $ 
MIT Ban . 1945 
aak WEJSSĦAN ; Lisp ae Puun ” . Dicxeussn 4867 
W.D. HAUREM . " The 


ΠΕ Tune dus de uap” 
Mac ουσ Á 1372 


S.L. WHITE : " ñ A X eda wA LAS e 


User's, Guide ' 
MIT. Aa Del Ziele PIER 


w° tdo , Des j439 l 
Soat nøses : ü cl, Fuu bin FUN CAN) ta Ka SP f) 
MIT . AI- ASA Juwa 1470 
D.G. DØBRPW . l'Roawazmint [= Addattat Prog nn mm rue 
` ? B 
fa List Pre a eem, ü ġ d 


CACA — 3o 04 1972. 
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2 


la Ven lun DEEL ` coeyteskt Z (ae ` Aas idf sous À 
guet | pus 2 T 2 de s ας L+ et LL. Je 
"tes p A at 50ο. Αν ἕλε, de uagnbtiEs , de w2— 
ἔρημα. 


Ge Life αι Ales pr Cow sue pon eere aus Ες 


Je τ μα, > (wHILE CA "T ) tot ge LA Co A mat 
suwu Αρ aUas . Cleg δ᾽ ax eg e «Xe Pos Cave NEXTL Cerf. 55) 
q^ aef naint ο GAR A LA οί 


Gi r] Leit ^o 0 d LA et LL 


DU w^ [oe οσο Ás LES ye ^^ Le 4.9 e ct v poe. : 


RES L4. LZ 

C) (P 5 + 4) C4 & s 4) 
(2) (S + «) (* $ 4) 
(t A) (+ “) (s 4) 
(L-A 1) (4) (4) 
(25 4 5) () d 


(as πω. d^ CAR A4 LA aÁ- 11 


fd 
S — 4 
3-5 
4 LA 


deti Per 


N GENI CA. (£. re 15) 
Sak jU Sns N b ζιον εἴ. WHILE ! RES ast ερ ών ἕως 


Sow ^C X 
dé c£ 5 a Qa NU "P l, late RES M « te - E Quel 


Weg AD, o. Reni 5 Co A ma VALEUR ika 0. [octies Όιεει à 


U. Lake Ae ΕΣ et, ΥΕ ΦΡΟΝΤΟ ou dt jo. aeu 


o pé ed e LIRE Sma cœushlue de la LG, faton 
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24 


(DE DIFFL CL1 L2) 
(PROG (RES) 
(SETQ RES NIL) 
(WHILE L1 
(SETQ RES (NCONCI RES 
(DIFFER CNEXTL LI) CNEXTL L22222)2 
(RETURN RESJ)) 
DIFFL €. ΜΝ 


eh uu 
` w. < 
πο 


i —— 


(DIFFL *(3 5 7 4) '(1 k 5 125) 
(2123) 


COIFFL ‘Ci 2 3 4) '(^ 3 2 12) 
(-3 =} 1 3) 


> w V—————— —" 


2 
wb ma ve? ei tpe δω fo, Caaħeg, 
C'est δα Aker μὲ LSP L 


(be DiFfFL "9 ) 
tS? Sidi. sa San 5p 1" ‘él a cow y^5 
4 ÇA hou tir DEEL stat A3 piaia š 


http://www.artinfo-musinfo.org Initiation à la programmation en LISP 510, 1973-1977, page 99 / 130 


Motu L fatovs di rudes A' A La UA SQA TY] Lista : Lu je mu Be 
| Dr M mul da UMEMSEX dés LR corps de 
H. Loue. INVAR < EM ) A Se cox Áe. kaf À i est aS ; E, PIS P uq 


O^ wita ye pote de Ñ. LE fou Lim JNVEWEX : 
εἴδει Zen 2 eno c i$ . (pe INVERSER (LA ve) ...) 


ge, λ' e (yat INVEMSER dens b, oec Roc Asud 


2 mu ue if 
— C 

56 . (INVERS ER (^ b c py. 

Vo: bts ` C'est Una puua ye ; dean À, L. SPs 


Co wd g na poc s 
& ina ese, e cel que ned 


^ wu La νο, manques 


4 v ojek. Où ma panga 
L4 -2 
(^ ë < ο) C) 
L'TAB cer p pooap&sRemeb a pe^ αν ma tête κε UL, £, ¿rt 
ἕιοννξο a eu dei LA . Duc que ye ps d'il 
es LA o£ L, CC NULL LA ) L2) ) J 07^ ^O L2 
f^ X —— Yves eo | πι ale ; 
LA LL 
(^ 6 c b ) C) 
C65 c D) (A) 
( c 5) (5 A) 
C 55 C € & A) 
C) (b c e a y 


LA SE Lov aa ow Vu pa INVER SEV μα’ «(ο @ bia Kc μα 


Des £& 2 ws, o^ ἀνα. fw δ, ro de Li, 
ve — Liste, ade Lit «est FS «uvmses, 


ο... — (Cest ment) Ve ta) 


ev w a =w w <. 


Vw S PP 
Qu e. G3 e e, ts Sai 


Dons 4 DN Agen tt y LA qab Nee genant Doe με 
oed: — dede el AR, Aen te -> qe le . Ou dut 
PALINDAQHE, 314 


εί am 


a Clay UM 

7 A quaques Σον be hou s sp Le 

οἷς. An ct ολ ος pts ἡ ae Jacques baus lus AL £A HA? 
as 15 ~= dilg . 


L AME be UNS TAĦMS- N USE pe MAL 


(As. ; Teva Ane ) 
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(DE INVERSER CL1 L2) 
(COND 
CCNULL LI) L2) 
CT CINVERSER CCDR LI) 
(CONS CCAR LI) L2))) D) 
INVERS 


(DE INVERSER (CL) 
(PROG (RES) 
(WHILE L 
(SETQ RES (CONS (NEXTL L) RES))) 
(RETURN RES))) 
INVERS 


CINVERSER '(A B C D)) 
(D C B A) 


CINVERSER *CLE PAPE CEST MORT))) 
(CEST MORT) PAPE LE) 


CINVERSER 'CEM I LE NU A UNE 
(EM I LENUAUNEL IM E) 
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L IM E22 


36 


27 


et ου m'est yes TS maħ At byde. 


i 
LAG a U νο ο. piae” c'est VA ο μον ολα 


IA fe x toy ue A uos ée p^? but Cos ú Ε cTEY ER T PRRENTESÉE . 


Seat. τ C) PK 
€ MÓN 

(OO) px 

OOC) Z< 
Ta) MH 


C εν - X yon . O| Trouve [^ yet Pe) «s. v ta À £a 


Sous- tana A 3A eae Lut: dan ος CPAITEXT — MEE . Ua 


E lasf j ου vv son Anis ti EP Lise pana xi αμ ων vel #4 


Dye (λα λλ να unda 
L'idez ιν dl aupara pres & uot ) ΚΡ} ea] Y vu 
compon K à D. Si y taot να  ouutaute, y aganta À au cep, 
$a y Trouve vwe formaté ; y ma Din d. A “out moment, kd Ντ deviat 
fn, c'est η" la mat ο Res C ya top t enn uen À 
poem š fe En du met A eng hoc at (hux (ya ton 
d ouvaautes ) An πο , ἃ met ο cowaet . 
ας ἆ qax. du met Jest? jow À at —-4 . 
À mpimde "CT 
LA npésente ka uni 
Pr: yo Ë AS xar j p Atodt mup : 
COO) 0 Gänge _ 


Poua JA Daa ps toux, fa p Lire Ja ra A+ =a. 
" Ngkous sm by agammnius form olbs ' de Mauve GPSS at Audu LENTIN 
daen e A T - Will as > ου Ç ( dk wie) : 
er: Erde λος Con cos coutant - fare d y 
N-CHPNSKX er Tang P. ScaurzEXB5EMGER das Le w° ZA Mas Ly 


^a t. ALUVE LANGAGES (νο 5) I 
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(DE MDYCK (L) 


MDYCK 


(MDYCK 
OK 


(MDYCK 
NON 


(MDYCK 
NON 


(MDYCK 
OK 


CPROG (KD 
CSETQ K 0) 
RE (COND 
CCNULL L) 
CRETURN 
(COND CCZEROP K) ΟΚ) 
CT 'NONDJ))) 
CCEQ CCAR L) 1) 
CSETQ K (ADDI K))) 
CCEQ (CAR L) -1) 
(5ΕΤΩ K CSUB1 Kä? 
(COND 
CCLT K 0) (RETURN 'ΝΟΝ))))) 
(SETQ L CCDR L)) 
(GO RE) )) 


"C1 1 -1 1 ~l -1 1 -1)5) 


"C1 1 1 -1)) 


'(1]1 -l l-ID) 


'(11 1 1 -1-1 -1 1 -1 -13) 
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38 


25 


M oic Z suls ` eg eweg SE C es pas ordre tamissawt ) ha mom bas, 
LA et ιο. 

mesch" LA. A A4 A τι 3 g 

LL = o £ $ K τι 35 37 os 

Je ua Moyer sa com Binn cos Z suites su uta saa , AUS, 
v Sha  Dilounez Je la ufu fa cou 

e >À? KES - ο 4 6 4 Aë Ας 24 24 21 35 33 t5 71 47 
Je Ainai o A “ er G EU SIE) | ον Au Ce 
X' OJINTERCLASSENENT M LA at LZ ( noter gt LA a LO esu? 
avoa > fou was Ai RfErutes ) 
Ge o pe^ aos est fout itid you na 5 jow Aw fus 
(uen A 78). Pump : un Ú: ua, ele yet etas oA eed 
yar Ants noissSauts | 


ay o i> a κ a δα bu ( Vd ke, N CM CA, 
ae 15) da da pete AF ya uon Ela uite Aa «ES , U `A + n AM LA 
GE On ka än d. oisi 


vue 5*?"* sole , τ RES ενα 


ου Ag 


M Go y end dis 4 ^5 Lhe Ls ty (can) ei LA at [1 


E 7 
La plus petit dw Ass (etc mias’ dms LA gu L2 CNEXTI) aż 
y ϐ fee i 0 b^ ch πες, | 


A tont kene vn uu S. 


3 | oclo s 


4 4 Ass É Sotes y LÀ oo LT. deuien viele 
couca Të ue (ssa γ᾽ δ: 75) a RES : Lå S: LI 


ast y da i 


Ey m e — P U elt pw.) [^A oM An os, 


JNTERCCASSEW | 
Deos Le ga pare u yia j va GĦAR Qu Sa 
LA LT RES 
(A + 3) (2 *> s) d 
"rz ke (9) 
TEES G 5) (5 4) 
(e 3) (5) (0 4 3) 
(+) (s) κ (43 4) 
(7) kd (ο 4 5ος 5) 


ο (° 4 B 4 5 3) 
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(DE INTERCLASSER (L1 L2) 
(PROG (RES) 
CSETQ RES NIL) 
HOP CCOND 
CCNULL LI) (RETURN (NCONC RES L2))) 
CCNULL L2) CRETURN (NCONC RES L133) ὃ 
CSETQ RES (NCONCI RES 
(COND 
CCLT CCAR LI) CCAR L2)) CNEXTL LID) 
CT CNEXTE L2)) 32) 
(GO HOP) )) 
INTERC 


CINTERCLASSER 'C1 4 7) '(0 3 5)) 


(0134 5 7) 


CINTERCLASSER '(-2 5 21 37) '(2 3 4 185) 
(-22 3 4 5 18 21 37) 


CINTERCLASSER '(1515 1789 1944) '(1870 1944 1968 2001)) 
(1515 1789 1870 1944 1944 1968 2001) 


http://www.artinfo-musinfo.org Initiation à la programmation en LISP 510, 1973-1977, page 105 / 130 


100 


4.04. 


La bës biubec i yt ϱ) Ha eite deae de ` Cal VM) ανν 
νου. Liuaire AG vu wow du duel, Tai y Le a Bus cé dis A 
A/ Ke T oyta Ve A ut Ces UB νιον A ula wa l-46 ` ta għa š Ride 
ass fit PRESENTA ANS fun "Py kan want y ant he οσα ἂρ 
zech: "52357 ast ὃ, x kelen Ate Νέεπαιξε αι 
S #40” + 1 aide + 7 x Ah A b pdo 
Dres u cas εί courant À appel Ae ἂν BASE Ja L na pot M uo e. 
^ ' 
De w£ vq : 46275" ast Uwal ae prix ok g 
(CS «1ο 4 L )»40 + 32)440 4 3 
Le du 8 
a Calcok a À gue-Zegie su peu vus et {Las AT δον y 
Ae um be 
$ gun w ας GAUCHE — veówt ) Sous ouvre Σ Ce ww. te 
- DI 8. αν 
σ ου ιο Cow Dë : 
⁄ j i a ας Le 5 vout SUIVALR Ou owe LA tA fat po νυν 
wu K . ` s ot 
. Εν, p 74 š Ó a νεα oda ye u Cas yn a Q . fois , Tomt 


AE. £e qa 4 vu 
T! νε. y > de fiha J x «ον δ; re £, Gov yta p? ο «t ὁ y Le 


Soit £ La : 
U ew Je ) αι υ» d De e [o, 6.47, wo QA, Ca CA - 
Aw Awla ... Αγιά A, ek Ον vbt j 5 AP p abeo di Hoaus . 
QC... Cast + anaba γκό san jeb Aan laf xa, 
- gé d € o Kot ye fa ^ v^ U nomnbu Ei rein $ ws 
e L At Tai na Α oa «ον > Zeie Z. 3c Éa? at 
L εἷς ο elb A F p i E 
" Ls l } ] : Ow = fonte BINDEC δὲ AB ers y νος ΑΝ Sub ek s 
Ts d vun "veu Coena" 4,14 Ae ` À f 
` ) y^ vat t du feo fs 7, O 
Ὅς mm^: G 9 4)— (ler «0t e 


b/ mis Ho je b " ona De A AS eX 


Ou e^ , A 
Qe y^^ ep i ww X posee ay pe 


L RES 
( 14 0 41 ) 0 
( 1 ο 14) À = κο + À 
( ο 44) b = Lada À 
( 44) 6 τς lado 
C) Lt = LA 4 4 


http://www.artinfo-musinfo.org Initiation à la programmation en LISP 510, 1973-1977, page 106 / 130 


(DE BINDEC CL) 
(PROG (RES) 
CSETQ RES 0) 
(WHILE L 
CSETQ RES (PLUS (TIMES RES 2) 
(NEXTL Ογλ} 
(RETURN RES))} 
BINDEC 


CBINDEC '(1 0)) 
2 


(BINDEC '(1 0 1)) 
5 


(BINDEC '(1 1 1 1} 
15 


CBINDEC "CL 1 0 1 1)) 
27 


(BINDEC "C1 1 1 1 1 0 0 0 9 1)) 
993 
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407 


Ao ` 


DECOIN 4 Bb. sta ÜU maorit dassie sa Cowu& £o οἱ wa 
vom fra ada an AI uve o rv νν vou biż κό ( hovjoms pe σῶν: 


Αἱ MUS; ). gt νέων Αν nbus epe ess g= pen 
b. fo dr bINDEC {γη dol-101), 

Huy ; co. z À4404, . ἐν pehts ο Wa, 
τ geg up £, woo, sont ^A pu AS — nie ιο An νο, bena Ζ΄. 
Live p'as 

¿°> LE. 


Ae wA mate LT + quote Aa D la Suite INVEMLEE 


us nostes ας Les Divisions SOCCA MS vA S mad ghommd A KT EE Dai 


οἷς να von De : 
Pit vA CA S Soan At ο) äus u 4 ër AA USC Ü sq CSS 


A CO va ve ν. olo 4 alle ot αι ^s ste ZS LA dieta s^ 8 lia (ES. 


770. v- Et ev c N= 79 
N RES 
25 () 
Al (4) 
+ (o 4) 
> (4 0 4) 
À (44 0 4) 
0 (444 04) 


b. b 
a Ant Con y stn κας, Vel Z 
F . AN, at 16. » 
MAX AU ua mit ras et ` Donald. KNUTH j 


chan AD BA SN - JEDLE Y 
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4084 


(DE DECBIN (ND 
(PROG (RES) 
(SETQ RES NIL) 
(WHILE (GT N 0) 
(SETQ RES (CONS (REM N 2) RES)) 
(SETQ N (QUO N 2))) 
(RETURN RES)}) 
DECBIN 


(DECBIN 2) 
(1 0) 


(DECBIN 5) 
(1 0 1) 


(DECBIN 8) 
(100 0) 


(DECBIN 15) 
(1 1 1 1) 


(DECBIN 27) 
(1101 1) 


(DECBIN 993) 
(1111100001) 
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ADS 
Ka [ρολο NEMIR R 


Biore am të συθλκλ 
0, so] Á u (fus 


ον uow fre RES , Joux 
ast — octavas y^^ auf Een H la Sola An 
elle da MN ou au οσο 

fx i 1364 


— e Na A 


| . - - 
L idu est y à gew aya À λος Δε pennen A Ifa Ae N 
+ À L peu cn Jk Aa RES, | 
(REN N Λο) ; prt aż Cow cp te 4, Pa na! Ba A ff dt N 
(QUÉ M Ae Y eu lie Le Asus def kal NO 
Basi > La At ec Q s πε I Cra PA TEN 5. CC# LS VU e à 
N RES 
572 d 
Er 1 e Όλο 4 2 
5 l+ = Zeie + 
0 175 = “(Ao + 5 
Vu Vas δι. ag N BHIRJ A Ast UN a. | r* taka ua 410 efe e^ ^ 
vol ie $ ν Blu stairs Ve Lao de L'os GINDEC at DECGIN 
(raw 104 à Aor). 
Une ` ο l aj ΄ 
^ [9^ yen eee b Ea at Mm Ha AW ρε... s 4, 
suite A» diffs A! TU rater da. nus δω 
Le vA vu [ια Lu nome 
Shoat 
(ΡΕ ismRÆR (N) 
(ER κ (NBĦIRA R N J) 
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ADĠ 


(DE NBMIROIR CN) 
(PROG (RES) 
(SETQ RES 0) 
(WHILE (GT N 0) 
(SETQ RES (PLUS (TIMES RES 10) 
(REM N 102525 
CSETQ N (QUO N 10222 
(RETURN RES)}) 
NBMIRO 


(NBMIROIR 572) 
275 


(NBMIROIR 12345) 
sb 321 


(NBMIROIR 65432) 
23456 


(NBMIROIR 55555) 
55555 
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P ow aoa RACE Ca Be, ἃ QA Am WAR Canada rela τα. membre κ), 
SA ον yl Aga ἃ st er As: Sr Uv ax αλ. o | JO FM c AAA ç οἱ ` Δ Aa 5 ) 


sr ku $a A — $ S ax S Aye coc e fs . 


À A4 - 4 
1 44 = A4 3 
a = A - 4 ᾱ 5 * 5 
` 
u c Ab + A 4 b + + 9 
5 z LS 115 5 1159 
m L 
Εν ec < : ΑΛ. 2 A4Va — ^ (24.4) 
Bam code. b, 0 Canne d vs Ss Αἱ. S65 uhisi - mu B e tin, 
est ων d AY K < 0 J Pe À ( x μας iu *f Ke. OI l'ile. 
LSP ecovacte "(Sen K Do) ) 


tY a Hab sib: ϐ cans ast Aaus MK, 


27 kaaf, Pehl Ne N- 4 , vhs 19. 


Bw ) γον M = j bs of tikudt— Sucta S bruts ud 
N < P 
5 D A 
4 A 3 
> D 5 
1 3 t 
A Aé Š 
° ^ 
INVERSEMENT V i | 
p^ T^ov fat, N n s£ v so fk A co m peter, Com bit 
Λι wom bass ampas sucs ssi Y 1 
A yas οσο. Su $ A pasin. NM 
Done j eM M doud ) d^ oven. v NE 
A Pe— À , Kæ 0 
qu H < Ne P 
39 $1 N «o ST : VN o 51 ρω» X. 
4y Pe P.L ) K — +4 y hs 29. 
Βανι: AVEC 
) D 4 som 
rt^ He N= 2% , o PARA — SUCCES Aud 
N νς P 
Lé 9 Á 
16 4 * 
t5 T- 5 
A8 3 + 
A4 Kë st 
L IE 4 
—3 ST P 
Dans R^CTE E Le) 
? ) h Lise b. owon (NØT aby ) | + š 
A F T SS padai te mat 


Tavita a null T 
) i | 


(NAT ti νο m oem Αν αρ < μι 
NIL A ν.δ. A. ei + IL. 
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40 9 


(DE RAC2E CN) 
(PROG (P K) 
(SETQ P 1) 
(SETQ K 0) 
(WHILE CNOT (LT CSETQ N CDIFFER N P)) Οὐ) 
(SETQ P (PLUS P 2)) 
CSETQ K CADDI K)) ) 
(RETURN K) )) 
RAC2E l 


CRAC2E 9) 


(RAC2E 8100) 
90 


(RAC2E 15) 
3 


(RAC2E 271) 
16 
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4039 


le ἕθεν. κάενλβίνε DELREP  coustuuit Q, Lyke dan atomes 
distincts fa sa Aile ce L. 
L ` - ` | + ax « - : e 
` Axe PT : o 7 L LA sb yes wA, Rare ag 
So A9 e La ua . G ax A E w^ ps A ' @ CC uA ka CQ. d ΠΑ Sole ^4. L. 


coll 4 i EL pn ét À Da Liste "^b subs X. (so Kate Has . St taħ ;¿Qr— A 


e, għax w. xA A | $ 
D O tÈ Uag ce λος d. suite αι L » dion: ων l Posi αν (9 Ares C. $ 


Novs AN OLA $ “ον ras ét af LE? C mer ee d cou Shaun A, g. 
j= (MENR «xt 2) qui dm Í T at ei 
NIL a et df 


— 


Νους ` >P `4 2 j | 
M puos [° ° ra αὖ k u bv ο. . LASP 0, va dada egen A 
τα Ai re £ 1 
à po^ ++ ER 
ko ) wem ν-ἃ AR d CAR / C s c / e... " Ou ρα + 
1 nenq att go Jo Aris STANDARD 


ñawi , p^r C (pe — u ple : 
(beurk h 
EP Ca BA B c y e 99 EOLUS Qua . 


(bELREP ο BA B € » 


Ρεικε (B A B 

( (ë A ei jis ^e (ba 6 €) κε ἀν o ave 
teste N οὐ SE ν-κα at HEMQ . 1 

(Pet Qz P dé b c )) η. & e (A 6» c). 


(cgus A (DELREP '(e c. Ὁ) psg ^ d (b c). 

(N$ 'A (us B (DELREP τε ) roi: 5 4 Cc). 
(pus "^ (ns 1b (egus re (οεικορ MIL) 1 

(pus `A (NS "E (usus fc M M | leie 
(ns la (opus bp Uo $ 

(«ως ΤΑ Ire c) 

(^ b c), 


&— €— €  &—— <€ e e €— gé 
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440 


(DE DELREP (L) 
(COND 
CCNULL L) NIL) 
((MEMQ (CAR L) CCDR L)) 
(DELREP (CDR LJ)) 
CT (CONS (CAR L) 
CDELREP (CDR L 522225 

DELREP 


(DEL RER 'CJE JE JE JE JE JE JE NE NE NE ΝΕ ΝΕ NE 
BEGAYE PAS PAS PAS PAS PAS) 
(JE NE BEGAYE PAS) 
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La Q^ We uA Ab CA ja Pas Ni SEX A (te yte Lm —4 Bin rt 


au għam oo : cho — t 


ον 
Carpession, "bb: o Me peau) 


a} ANT deg EE U wa pala γον. κα yb e lung 


roune, 


οι) 


(opt «ον et 


Note ATT SPE, 
orez Y δ, o yi > i | LA + ` SE a A ^A b ew A e ov s 
Coca δ putes . 


Po äis ER i Basta £: 


TA fan hayt 5 po b qed eb avt And να e 
vu Ακ ere Hat A OA en vs $, 


) e  SauutA frs Ls. L, CAS ou 


où 
dot TA oa u stamidlua $ ) Cow ολο. das  sous- shuduus S4 T à S. 
d Alan es ns ava komwa ^ Š: pu oa - yet o. L Luxe ἐν -ν 
sovs- Sla s ανν e y; ka : 
PpUWISER Aje dowe υ-4 AX rt $e u bu per af Acad 
dech RA^ $$ un punis pr bre : 
Ow  Leuolwt milf vf U Lou stiom DEPL. eg ANA. ut Art rA 


pri bie KE Aż (AA ne L! apassiona petere Boe sw Le — d 
pes 
(δε σερ (ε) 
(ur 
((arngm E) E) 
(T (sT (bePgL. (capa EJ) 
(can E) 
(DEPAL (caor € YY 


βγω = pla : ( DEPAL {a À ί + b 


CM — (^ x (% + c) 
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HAL 


(DE POLONISER (E) 
(COND 
CCATOM E) E) 
CT CLIST CCADR E) 
CPOLONISER (CAR E)) 
CPOLONISER (CADDR E)) )) )) 
POLONI 


CPOLONISER 'A) 
A 


CPOLONISER 'CA + B)) 
(+ À B) 


(POLONISER '(A * (B + C))) 
(ĦA (+ B C)) 


(POLONISER '(CCA - CB + C)) $ (D / E))) 
C: (- A (4 B C)) (/ D EDD 


http://www.artinfo-musinfo.org Initiation.à la.programmation en LISP 510, 1973-1977, page 117/.130.. . . 


1415 


Lens λα A C 44 al NA da moute | Dieu {+ ny paraître 
sous d Haima baya p Għ disques d'oh < Airis noise, 
emys bis $C. vw ales λα οανιαμς . τί he ça ο Gg exit 
L o $ aiguilles A Mawsut — dewks doun andis, Α ut ` erte ki. Zë 


^o. Cache? d pts οἱ Gun  Aewca Ja Reda Αἱ AT fawna 
t, A qus Ae Gs ongui lle ο η αι ybs ov Ae rsch zu δε, 2. 
ai List A^ vu Uu$Sp ^A s $ sois r$ vd. Love Lan A shoc Kane demponem , 
kontanti lu, έν disques λε AA ët sup Us pen tré Ares 
su Ü. Ae ten di eye 


) A ve n, Zap Au € k. pu wá sena AULA VE , 
Les AT pla u mus a, Aqua trot S Us ye b. "wo T^ uult e 
Af ον v Ar pla c ar 4 det e" ὃν Kan I 


ζ΄ o^ v A+ zoni pest dia dé ua Sen οκ A sq WW 


Ara wu taq AMI EM . 


Garanin s appellent 
b z msi ls 0. 


} 


TWURS DE HAN Y 
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Acht 


(DE HANOI CN DEPART ARRIVEE INTERMEDIAIRE) 
(COND 
«(στ N 0) 
CHANOI (SUB1 N) DEPART INTERMEDIAIRE ARRIVEE) 
(PRINT (LIST 'DISQUE N ‘DE DEPART 'VERS ARRIVEEJ) 
(HANOI CSUBI N) INTERMEDIAIRE ARRIVEE DEPART)) 3) 
HANO I 


(HANOI 1 'A 'C 'B) 
(DISQUE 1 DE A VERS C) 
NIL 


(ΗΑΝΟΙ 2 'A 'C 1B) 
(DISQUE 1 DE A VERS B) 
(DISQUE 2 DE A VERS C) 
(DISQUE 1 DE B VERS C) 
NIL 


(HANOI 3 'A 'C 'B) 


(DISQUE 1 DE A VERS C) 
(DISQUE 2 DE A VERS B) 
(DISQUE 1 DE C VERS B) 
(DISQUE 3 DE A VERS C) 
(DISQUE 1 DE B VERS A) 
(DISQUE 2 DE B VERS C) 
(DISQUE 1 DE A VERS C) 
NIL 

CHANOI 4 Αα 'ς 'B) 
(DISQUE 1 DE A VERS B) 
(DISQUE 2 DE A VERS C) 
CDISQUE 1 DE B VERS C) 
(DISQUE 3 DE A VERS B) 
(DISQUE 1 DE C VERS A) 
CDISQUE 2 DE C VERS B) 
(DISQUE 1 OE A VERS B) 
(DISQUE 4 DE A VERS C) 
(DISQUE 1 DE B VERS C) 
(DISQUE 2 DE B VERS A) 
(DISQUE 1 DE C VERS A) 
(DISQUE 3 DE B VERS C) 
(DISQUE 1 DE A VERS B) 
(DISQUE 2 DE A VERS C) 
(DISQUE 1 DE B VERS C) 
NIL 
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45 
ta fou is naren Plasta ον. co x ay À e r7? Con gU x RAP S AUUBSS Du 
de ΗΝ un al gn Uv À A ye ts 


Lë E - mali uq ast 


oct. —r c Lä 


PATTERN - MATCHIN G (έσω PH) 
"ilasa A LARZ fe AA Aasta si 7 D stas 
^R "m tonn δέκα. con postent ba, VUE Geil $ aT ow E A gA w one ri^ < 


On As eeu λα dC 


— 


MNA ITEĦ | δε ad aXXov ON Aa νε ma A < | 
Vw PATTER N : ya uada οὗ Ceu Xo: put TAS 


Ais eset s Loa taq ma DZ PX S V ot. a Hes Aa potes wë ic (X Al Cm ma $ 


αντ dua usu o (a di poen sa à δ. fon di SVAR , 
se va Photo δ alles A' ua Ce 
Dues Q. ou v^ ον, 


31 μη o Oed 
Le yet a uwt neue taag 

fi t!) 
l e ç ets T«ovs vu Sov $^ 
li p sst PAT p Asus 


) est DAT, S'il; l 
so Αἱ. Late: E EE i ye EET HP Le P- n ο... Aaka eh A Α.Α ved vom "i PAIL lesa 


Vas fes. 
HATCH 


uel . S'ils sout He ανα Geier We (y «ο ka An poer αι 


PAT et A2 DAT. 
DAT pÀ omg stowe 
PAT aR ow qara etla 
+ E εί 1) : 
à + J asosa (va ta atome ὁ Lë p yet ce 
M di couple a fe us ` auer (s Lite 
e EE d'Baneriaizern | ν« x Las y UA $ e— v. Sen ` 
e $ its una me 1 
Asd a ars pU oe ges 
¿Z : FAIL. 
G ;e - y à sz ege j x EH Val 


e La £M Si t^ 3 
CH 


4 b los hors PAT at DAT 
Q. Pa de Par (at douce de DAT) t ranrue 
petes -metik oy . 


a € ay eoo pla kal 


A δαλόν Sens 


BLAST (Lp AC vedo 


DU Low Du Sc 
p^ 
Ait be de $ L 


PAT DAT P p C ALIBT 
(x vus $) (IE vëun Mat) () 
(ugvs Y) [ugus Ane) x JE 
((x σσ) 
(X) (ains) vus vus 
() 


() Y Aine 


(CH mnejlx πε » 


Le ye eu e εν. z yt uq el wad CA na S md $ s^ baie ea RR o. 
^N co INFB,L , PUNVER KAĠ E CHUNIVER . 
Ον Lou la As δι 


η LENGTH ( voa PA 4o v, 64, 85) S AT: yes Lou au LISP 
elo dmi ( p Ww PN y"? à δα Abu . 
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A4 6 


(DE MATCH (PAT DAT) 
(PROG (P D ALIST) 
(SETQ ALIST NIL) 
(COND 
CCNEQ (LENGTH PAT) (LENGTH DAT)) 
(RETURN 'FAIL)) 
(T CWHILE PAT 
CSETQ P CNEXTL PAT)) 
(SETQ D (NEXTL DAT)) 
(COND 
CCISVAR P) 
CSETQ ALIST CCONS (LIST P D) ALIST))) 
CCNEQ P D) (RETURN 'FAILJ))) 
(RETURN ALIST) )))) 
MATCH 


(DE ISVAR (OB) 


(MEMQ OB ‘CV W X Y Z))) 
I SVAR 


(MATCH "CJE VOUS X) 'CJE VOUS AIME)) 
((X AIME) 


(MATCH 'CJE VOUS AIME) 'CJE NE VOUS AIME PAS)) 
FAIL 


(MATCH *(X VOUS Y) '(JE VOUS AIME) 
CCY AIME) (X JEJ) 


(MATCH '(X EST Y PAR Z) 'CPAUL EST TUE PAR JEAN)) 
(CZ JEAN) (Y TUE) (X PAULA? 


(MATCH '(W X Y Z) '(DIEU EST PLUS SAVANT)) 
((Z SAVANT) CY PLUS) (X EST) CW DIEU)) 


(MATCH '(W X PAS Z) 'CDIEU EST PLUS SAVANT )) 
AIL 
F 
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M 
La pu aa INSTANCE A À jai À Sé μυ... ἑ UM pates ( us y- ns) 
BI yg À - H Ae ου Aa Aro uwang ) Lt ea wuyi i Qa huma: 

( vanin Ka yrl ) | 


TNS LE ous wa Luke nes AM aet on paisu 


Lanz y "raus dech Á, peste va Ps e + À 
0, dex A pure dite. UA co v vf 
S; δ' sls 


` Pu Ca < pes ang 
av ἡ AMIE Aus 
Ce σος) , γε Au 6 £, Ge star mas. RES . 


e at be Tawuwi yes A S LA LM owe > rt v P λος war us 
Je  ctousle«t RES Ανα «A0 vio [s S A UL) vs T Λο rr. S a 
¿aa ħ r^^ MO MCA, » La um lol des H, Axa outre S< LA x UR a d 
ULLUS v 
p (vu. pass 67 s 30) 


pce yË, : (assge Tx τς: ni) (x se)(z Tu Y) (x σε) 


«ΑΝΤΕ ege "Gs PUR) (Y ongoy) as μα. 
Ον ka? o ST ρε 3 e fers AAA TT al D, oi AT 
INSTANCE 


9209 għas 
(INSTANCE  T(Paur gupi ee wpus x 1) 


(nwrc4 '(3e sus x) 
4 


(A Le ir MATCH at 


(σε Sus MUSTE D) 


m~ (Pg Qofi ETES νῷν» MUSTE 2) 


(INSTANCE ` Ne EST TUE Pan x) 
(πατε (x mue vx) 
ζρλυι τνε sens) 


Y 
C Ν st £= U ew 4 «0t, Lë ver bo ( ys Cao phare y av st Poar ar το 
ἐς Ka πλ deeg E LULA F ολα Sosa lh WEZLEN Όρο, Co pot aa 


Tav veu — LouVE Sada ( ' 
AA ν A, house He Con A y hompe, YX. ου GE mnt e. es 


bain: p cq er ) den s Ue ^ v 
x © 
ou Bee S N : 


yu Odes dee $ 


i 4° o C aaa Aë «νἒὲς 


vel elle ί oie Cnr $ os se | 


TA. ces enge fa Ha shay of notat Lu 


Cu v Mv v ma Cad UA Par west RAA Lq Ανν nuire u 


CAA ABEE ο, 5έ-ᾳς 
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444 


(DE INSTANCE (PAT ALISTE) 
(PROG (RES P X) 
(SETQ RES NIL) 
(WHILE PAT 
(SETQ P (NEXTL PAT)) 
(SETQ X (ASSOC P ALISTE)) 
CSETQ RES (NCONCI RES 


CCOND 
(X CCADR X22 
(T P) 222 2 


(RETURN RES) 2) 
INSTAN 


(DE ASSOC (0B L) 
(COND 
CENULL L) NIL) 
(CEQ CCAAR L) OB) CCAR L)) 
(T CASSOC OB (CDR L)3))) 
ASSOC 


CINSTANCE '(X VOUS Y) 'C(X JE) CY AIMEJ)) 
(JE VOUS AIME) 


(INSTANCE '(X EST Y PAR Z) '((X PAUL) CY TUE) CZ JEAN))) 


CPAUL EST TUE PAR JEAN) 


CINSTANCE '(X VOUS Y) !((X (JE NE)) CY (AIME PASJJ))) 


(CJE NE) VOUS (AIME PAS)) 


CINSTANCE 'CCIEL X VOUS ETES ENCORE Y) '((X IGOR) (Y SAOULDD - 


(CIEL IGOR VOUS ETES ENCORE SAQUL) 
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413 


Tua os S w LOU 5 (ous $ u. 


ΠΝ ΕΤΕ, νυν Sow ἕνα gha e 
hiza Cedo p ved ορ Am ski Mi oou bau ptis 
A3 pad ati ons was αν out af σία Dacicus Jout vois TA 

S on Bag AB S ρας 


— Asung 
- A ait 


ALIX -----» PRISCA ————» LALARE 
Ei 27 is AN 

` z l 

M ahi n | 


ZITÀ — Do. — FLEUR 


ñ 
VEN Wa 
i 
i 
KEVIN 


Brice rd NADEGE 


Le ARSO , Ἓ À, ο λα. y^ 
a ὃν m Y ^A € α΄. 
AIME 
(nom | | new) 


Hair 
A. Care co Ub tros, yo B'assow2 aw DA aset CRNTE NT fu wetma 


de catie saura v. act- Le? AS daas ve Aut 


uva οσα dou de tax geet (Ares 


V va "Wee, a e se ati 
1 I ° ' (< 

ch PE s nait A ω Vans ole GLPOOALE id 
ru ha. wa 2» NAME Te t, (ee 


A. d asu CAZANE ? 


* 


2. pouatn bait T^ ; 


i 17 Qu ar. es ? 
ec 
οἵ meuna ns — yov 
A. PRIGCA axe LATAME 
L; Qt b Lait AUX 


3. NADEGE οκ ORILE , BRILE arnat NADEGE, 


KEVIN pauat FLEUR ŻITA GC EVN af 
/ 


EA z sch ‘Les wë Ë ` o hot e 6 Joc Kio στου 
La que jA Vo sue rovs Q. T a ' 


o^ O PATTERN — Q4 À ! 
A (o Lia MATLH 


) ie 
que vous ev oas PES ae AA " 
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(DE FETCH (PAT) 
(PROG (RES C) 
CSETQ X CONTEXT) 
(WHILE X 
(SETQ C (NEXTL X)) 
(COND 
CCNEQ (MATCH PAT C) 'FAIL) 
(SETQ RES (CONS C RES)))D) 
(RETURN RES))) 
FETCH 


CSETQ CONTEXT "IC 

CALIX AIME PRISCA) 

CALIX AIME ZITA) 

CPRISCA AIME LAZARE) 

(PRISCA AIME AVMAR) 

CLAZARE AIME FLEUR) 

CFLEUR AIME ALIX) 

(FLEUR HAIT LAZARE) 

CZITA HAIT PRISCA) 

(ZITA AIME OSWALD) 

(ZITA AIME KEVIN) 

CAYMAR HAIT OSWALD) 

(OSWALD AIME FLEUR) 

(OSWALD HAIT ALIX) 

(KEVIN AIME FLEUR) 

(KEVIN HAIT AUBIN) 

(AUBIN HAIT OSWALD) 

(BRICE AIME NADEGE) 

(NADEGE AIME BRICE) 

22 
CCALIX AIME PRISCA) CALIX AIME ZITA) CPRISCA AIME LAZARE) € 
PRISCA AIME AYMAR) CLAZARE AIME FLEUR) (FLEUR AIME ALIX) (FLEUR 
HAIT LAZARE) CZITA HAIT PRISCA) (ZITA AIME OSWALD) (ZITA AIME 
KEVIN) CAYMAR HAIT OSWALD) COSWALD AIME FLEUR) COSWALD HAIT 
ALIX) (KEVIN AIME FLEUR) (KEVIN HAIT AUBIN) CAUBIN WAIT OSWALD 
7 ) CBRICE AIME NADEGE) CNADEGE AIME BRICE)) 
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ALDO 


Le kam $305 fe (ων es n a Ñ. Z ye af s=“. z |: 2^ U eg ” 
A y^^ TRE des Ü +a xs e^ Co «taste ; Si £, ae Au SS: T : 
La «2 yoye et do c Cow ye x Kn d PW C S de s Ge, 

qaviefti KES , O vean f ti ch. ci m αμ F° Aui M LIS . 
Λι fa te ga uous Loeb, P gx Pese I πι... Dx: jfa teo 
λος» Le P ab G δ. à ο ιο Leger : 


A σίας γα KA pire Ass het. Mars y cav ed $ Laon Coo, ^ orbite, 
D Ava jobs a A VA ves ox A' ασ ος πριν : 


Ou yeh £a t DRSE be Ῥφκιές ( dain Zeie ) 
(ία send sexe A Të e E gu on naian. K ous ^ hélas Dose f 


Quen À v^ A T bay Αι Ame ^ v. ^? TE sa ft, e 
δ FETCH :  ammeu ous Le tes bal; ae --- E 
di 6^ a dis e u rt eren ASS óc AV E 

Kata ax, d v, unf are c ` avt 


UY uwa magħha sie SES α" “eve à ire AA c klounis 


00, sits MEE ^^. j^ AA ha dAn sar Cow t. tad gt δω ali Las 
vU pA $ vu } o |y eres. pi au — dot , Je: eod mpda rx al aen s 
^M pons ^e j LEA P 3 SAIL. 2» OM paua plns ou Vd ak? 


A € A sta i e P. 
^ aper LADA nm D € V ovt Lë a 44 - 
E e ' " re | 
J εώ- a JU HUE ga jus 1) 
kO 1 | Í qe k: QRAR 
ον "^ de aue ebe B OO ai 
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CFETCH 'CZITA AIME Y2) 
(CZITA AIME KEVIN) (ZITA AIME OSWALD)) 


(FETCH '(X Y FLEUR)) 
((ΚΕΥΙΝ AIME FLEUR) CLAZARE AIME FLEUR)) 


CFETCH '(X HAIT Y)) 
CCAUBIN HAIT OSWALD) (KEVIN HAIT AUBIN) COSWALD HAIT ALIX) C 
AYMAR HAIT OSWALD) CZITA HAIT PRISCA) (FLEUR HAIT LAZARE)) 


(FETCH 'COSWALD Y Z)) 
(COSWALD HAIT ALIX)) 


(FETCH 'CX Y OSWALD)) 
((AUBIN HAIT OSWALD) CAYMAR HAIT OSWALD) CZITA AIME OSWALD 2) 


(FETCH 'CFLEUR X LAZARE)) 
CCFLEUR HAIT LAZARE 22 


(FETCH '(X AIME Z)) 

((NADEGE AIME BRICE) (BRICE AIME NADEGE) (KEVIN AIME FLEUR) C 
ZITA AIME KEVIN) CZITA AIME OSWALD) (FLEUR AIME ΑΙ ΙΧ) CLAZARE 
AIME FLEUR) (PRISCA AIME AYMAR) (PRISCA AIME LAZARE) (AL IX 
AIME ZITA) (Αι ΙΧ AIME PRISCA)) 


(FETCH '(X Y Z)) 

((NADEGE AIME BRICE) (BRICE AIME NADEGE) CAUBIN HAIT OSWALD) ( 
KEVIN HAIT AUBIN) (KEVIN AIME FLEUR) (OSWALD HAIT ALIX) (AYMAR 
HAIT OSWALD) (ZITA AIME KEVIN) CZITA AIME OSWALD) (ZITA HAIT 
PRISCA) CFLEUR HAIT LAZARE) (FLEUR AIME ΑΙ ΙΧ) CLAZARE AIME 
FLEUR) (PRISCA AIME AYMAR) (PRISCA AIME LAZARE) CALIX AIME 
ZITA) CALIX AIME PRISCA ' 


(FETCH '(X AIME BRICE)) 
c CNADEGE AIME BRICE 2) 


(FETCH '(CY AIME NADEGE)) 
(C(BRICE AIME NADEGE)) 


bem — — — — — L -] 
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